teams <- c(rep("yankees", 40), rep("padres", 40), rep("mariners", 40), rep("dodgers", 40))
salary <- c(rnorm(40, mean = 25), rnorm(40, 16), rnorm(40, 23), rnorm(40, 15))
df <- data.frame(teams, salary)
head(df)
## teams salary ## 1 yankees 24.37042 ## 2 yankees 25.54544 ## 3 yankees 24.82597 ## 4 yankees 23.78920 ## 5 yankees 26.08112 ## 6 yankees 24.74711